home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Classes / 2.0_NumberLine / drawLine.psw < prev    next >
Encoding:
Text File  |  1992-06-10  |  16.4 KB  |  799 lines
  1. // By Judy D. Halchin, Educational Computing Services, Allegheny College.
  2. // You may freely copy, distribute and reuse this code. 
  3. // Allegheny College and the author disclaim any warranty of any kind, 
  4. // expressed or implied, as to its fitness for any particular use.
  5. // This work was partially supported by a Teacher Preparation grant from the 
  6. // National Science Foundation.
  7.  
  8. defineps drawBorders(float width, height, linePosition, borderWidth,         
  9.                      backgroundGray, lineGray; boolean vertical, endBars)
  10.  
  11. % width and height are unscaled here to get linewidths right
  12.  
  13. gsave
  14.  
  15. % background
  16. backgroundGray setgray
  17. 1 setalpha
  18. 0 0 width height  rectfill
  19.  
  20. % draw border if it should have one
  21. borderWidth 0 ge
  22. {
  23.    % offsets to avoid part of the border being clipped off
  24.    borderWidth 0 eq 
  25.       {/border 1 def} 
  26.       {/border borderWidth def}
  27.    ifelse
  28.    
  29.    /offset border 2 div def
  30.    /rightedge width offset sub def
  31.    /topedge height offset sub def
  32.    /bottomedge offset def
  33.    /leftedge offset def
  34.  
  35.    % draw horizontal borders
  36.    0 bottomedge moveto
  37.    width 0 rlineto
  38.    0 topedge moveto
  39.    width 0 rlineto
  40.  
  41.    % draw vertical borders
  42.    leftedge 0 moveto
  43.    0 height  rlineto
  44.    rightedge 0 moveto
  45.    0 height rlineto
  46.    
  47.    borderWidth setlinewidth
  48.    0 setgray
  49.    stroke
  50. } if
  51.  
  52. % draw end bars, if it should have them
  53. endBars
  54. {
  55.    vertical
  56.    {
  57.       width linePosition sub 7 sub    1 moveto
  58.       15 0 rlineto
  59.       -15 height 1 sub rmoveto
  60.       15 0 rlineto
  61.    }
  62.    {
  63.       0 linePosition 8 sub moveto
  64.       0 15 rlineto
  65.       width 1 sub -15 rmoveto
  66.       0 15 rlineto
  67.    } ifelse
  68.    
  69.    0 setlinewidth
  70.    lineGray setgray
  71.    stroke
  72. } if
  73.  
  74. grestore
  75.  
  76. endps
  77.  
  78.  
  79.  
  80. defineps drawLine(float originX, originY, width, height, scaleFactor;
  81.                         boolean vertical; float lineGray)
  82.  
  83. % originX, originY, width, height are all scaled
  84.  
  85. gsave
  86.  
  87. % scale and translate to match number line, rotate if vertical
  88. vertical 
  89. {
  90.     90 rotate   
  91.     scaleFactor 1 scale
  92.     0 height neg translate
  93. } 
  94. {
  95.     scaleFactor 1 scale
  96. } 
  97. ifelse
  98.  
  99. originX neg  originY neg translate 
  100.  
  101. % draw the line itself
  102. originX 0 moveto
  103. width 0 rlineto
  104. lineGray setgray
  105. 0 setlinewidth
  106. stroke
  107.  
  108. grestore
  109.  
  110. endps
  111.  
  112.  
  113. defineps drawTicks(float originX, originY, height, scaleFactor; 
  114.                     boolean vertical; float lineGray, firstTick, tickSpacing, 
  115.                     firstLabel, labelSpacing; int numberOfTicks)
  116.  
  117. gsave
  118.  
  119. % scale and translate to match number line, rotate if vertical
  120. vertical 
  121. {
  122.     90 rotate   
  123.     scaleFactor 1 scale
  124.     0 height neg translate
  125. } 
  126. {
  127.     scaleFactor 1 scale
  128. } 
  129. ifelse
  130.  
  131. originX neg  originY neg translate 
  132.  
  133. % draw the ticks to the left of the first label
  134. firstLabel labelSpacing sub
  135. firstTick gt 
  136.   {  /firstlabel   firstLabel labelSpacing sub   def  } 
  137.   {  /firstlabel   firstLabel  def  }
  138. ifelse
  139.  
  140. /margin    tickSpacing 3 div   def
  141. /tickCount 0 def
  142. firstTick -4 moveto
  143. {
  144.    currentpoint pop    
  145.    margin add
  146.    firstlabel gt {exit} if
  147.    
  148.    0 7 rlineto
  149.    /tickCount tickCount 1 add def
  150.    tickSpacing -7 rmoveto
  151. } loop
  152.           
  153. % draw rest of the ticks, with each fifth one larger
  154. /counter 5 def
  155. {
  156.      counter 5 eq
  157.      {
  158.         0 -4 rmoveto
  159.         0 15 rlineto
  160.         tickSpacing -11 rmoveto
  161.         /counter 0 def
  162.      }
  163.      {
  164.          0 7 rlineto
  165.         tickSpacing -7 rmoveto
  166.      } ifelse
  167.      
  168.      /counter counter 1 add def
  169.      /tickCount tickCount 1 add def
  170.      tickCount numberOfTicks eq
  171.      { exit } if
  172. } loop
  173.      
  174. lineGray setgray
  175. 0 setlinewidth
  176. 1 setalpha
  177. stroke
  178.  
  179. grestore
  180.  
  181. endps
  182.  
  183.  
  184. defineps drawHorzLabels(float originX, originY, scaleFactor, unscaleFactor; 
  185.                     int labelPosition; float labelGray, firstLabel, 
  186.                     labelSpacing; boolean scientific; int numberOfLabels; 
  187.                     char *label1, *label2, *label3, *label4, *label5, *label6,
  188.                     *label7, *label8, *label9, *label10, *label11, *exponent1,
  189.                     *exponent2, *exponent3, *exponent4, *exponent5,
  190.                     *exponent6, *exponent7, *exponent8, *exponent9,
  191.                     *exponent10, *exponent11)
  192.  
  193. gsave
  194.  
  195. %scale and translate to match the number line
  196. scaleFactor 1 scale
  197. originX neg   originY neg translate 
  198.  
  199. % set up the font 
  200. /Helvetica findfont
  201. 10 scalefont
  202. setfont
  203. labelGray setgray
  204.  
  205. % set the height for the labels
  206. labelPosition 1 eq
  207.   {      /labelHeight -18 def  }
  208.   {   /labelHeight  10 def  }
  209. ifelse
  210.     
  211. % draw the labels
  212.  
  213.     /notZero   (label1) (0) ne   def
  214.     firstLabel labelHeight moveto
  215.      unscaleFactor 1 scale
  216.        notZero 
  217.        {
  218.           (label1) stringwidth pop 
  219.           scientific notZero and {(x10  ) stringwidth pop add} if
  220.           2 div neg  0 rmoveto
  221.        } 
  222.        {-3 0 rmoveto} ifelse
  223.        (label1) show
  224.        scientific notZero and
  225.        {
  226.           2 0 rmoveto
  227.           (x) show
  228.           1 0 rmoveto
  229.           (10) show
  230.           1 5 rmoveto
  231.           (exponent1) show
  232.        } if
  233.      scaleFactor 1 scale
  234.  
  235.     /notZero   (label2) (0) ne   def
  236.     firstLabel labelSpacing add   labelHeight moveto
  237.      unscaleFactor 1 scale
  238.        notZero 
  239.        {
  240.           (label2) stringwidth pop 
  241.           scientific notZero and {(x10  ) stringwidth pop add} if
  242.           2 div neg  0 rmoveto
  243.        } 
  244.        {-3 0 rmoveto} ifelse
  245.        
  246.        (label2) show
  247.        scientific notZero and 
  248.        {
  249.           2 0 rmoveto
  250.           (x) show
  251.           1 0 rmoveto
  252.           (10) show
  253.           1 5 rmoveto
  254.           (exponent2) show
  255.        } if
  256.      scaleFactor 1 scale
  257.  
  258.     /notZero   (label3) (0) ne   def
  259.     firstLabel labelSpacing add labelSpacing add   labelHeight moveto
  260.      unscaleFactor 1 scale
  261.        notZero 
  262.        {
  263.           (label3) stringwidth pop 
  264.           scientific notZero and {(x10  ) stringwidth pop add} if
  265.           2 div neg  0 rmoveto
  266.        } 
  267.        {-3 0 rmoveto} ifelse
  268.        (label3) show
  269.        scientific notZero and
  270.        {
  271.           2 0 rmoveto
  272.           (x) show
  273.           1 0 rmoveto
  274.           (10) show
  275.           1 5 rmoveto
  276.           (exponent3) show
  277.        } if
  278.      scaleFactor 1 scale
  279.  
  280.     /notZero   (label4) (0) ne   def
  281.     numberOfLabels 4 ge
  282.     {
  283.        firstLabel labelSpacing 3 mul add   labelHeight moveto
  284.         unscaleFactor 1 scale
  285.           notZero 
  286.           {
  287.              (label4) stringwidth pop 
  288.              scientific notZero and {(x10  ) stringwidth pop add} if
  289.              2 div neg  0 rmoveto
  290.           } 
  291.           {-3 0 rmoveto} ifelse
  292.           (label4) show
  293.        scientific notZero and
  294.        {
  295.           2 0 rmoveto
  296.           (x) show
  297.           1 0 rmoveto
  298.           (10) show
  299.           1 5 rmoveto
  300.           (exponent4) show
  301.        } if
  302.         scaleFactor 1 scale
  303.     } if
  304.     
  305.     /notZero   (label5) (0) ne   def
  306.     numberOfLabels 5 ge
  307.     {
  308.        firstLabel labelSpacing 4 mul add   labelHeight moveto
  309.         unscaleFactor 1 scale
  310.           notZero 
  311.           {
  312.              (label5) stringwidth pop 
  313.              scientific notZero and {(x10  ) stringwidth pop add} if
  314.              2 div neg  0 rmoveto
  315.           } 
  316.           {-3 0 rmoveto} ifelse
  317.           (label5) show
  318.        scientific notZero and
  319.        {
  320.           2 0 rmoveto
  321.           (x) show
  322.           1 0 rmoveto
  323.           (10) show
  324.           1 5 rmoveto
  325.           (exponent5) show
  326.        } if
  327.         scaleFactor 1 scale
  328.     } if
  329.     
  330.     /notZero   (label6) (0) ne   def
  331.     numberOfLabels 6 ge
  332.     {
  333.        firstLabel labelSpacing 5 mul add   labelHeight moveto
  334.         unscaleFactor 1 scale
  335.           notZero 
  336.           {
  337.              (label6) stringwidth pop 
  338.              scientific notZero and {(x10  ) stringwidth pop add} if
  339.              2 div neg  0 rmoveto
  340.           } 
  341.           {-3 0 rmoveto} ifelse
  342.           (label6) show
  343.        scientific notZero and
  344.        {
  345.           2 0 rmoveto
  346.           (x) show
  347.           1 0 rmoveto
  348.           (10) show
  349.           1 5 rmoveto
  350.           (exponent6) show
  351.        } if
  352.         scaleFactor 1 scale
  353.     } if
  354.     
  355.     /notZero   (label7) (0) ne   def
  356.     numberOfLabels 7 ge
  357.     {
  358.        firstLabel labelSpacing 6 mul add   labelHeight moveto
  359.         unscaleFactor 1 scale
  360.           notZero 
  361.           {
  362.              (label7) stringwidth pop 
  363.              scientific notZero and {(x10  ) stringwidth pop add} if
  364.              2 div neg  0 rmoveto
  365.           } 
  366.           {-3 0 rmoveto} ifelse
  367.           (label7) show
  368.        scientific notZero and
  369.        {
  370.           2 0 rmoveto
  371.           (x) show
  372.           1 0 rmoveto
  373.           (10) show
  374.           1 5 rmoveto
  375.           (exponent7) show
  376.        } if
  377.         scaleFactor 1 scale
  378.     } if
  379.     
  380.     /notZero   (label8) (0) ne   def
  381.     numberOfLabels 8 ge
  382.     {
  383.        firstLabel labelSpacing 7 mul add   labelHeight moveto
  384.         unscaleFactor 1 scale
  385.           notZero 
  386.           {
  387.              (label8) stringwidth pop 
  388.              scientific notZero and {(x10  ) stringwidth pop add} if
  389.              2 div neg  0 rmoveto
  390.           } 
  391.           {-3 0 rmoveto} ifelse
  392.           (label8) show
  393.        scientific notZero and
  394.        {
  395.           2 0 rmoveto
  396.           (x) show
  397.           1 0 rmoveto
  398.           (10) show
  399.           1 5 rmoveto
  400.           (exponent8) show
  401.        } if
  402.         scaleFactor 1 scale
  403.     } if
  404.     
  405.     /notZero   (label9) (0) ne   def
  406.     numberOfLabels 9 ge
  407.     {
  408.        firstLabel labelSpacing 8 mul add   labelHeight moveto
  409.         unscaleFactor 1 scale
  410.           notZero 
  411.           {
  412.              (label9) stringwidth pop 
  413.              scientific notZero and {(x10  ) stringwidth pop add} if
  414.              2 div neg  0 rmoveto
  415.           } 
  416.           {-3 0 rmoveto} ifelse
  417.           (label9) show
  418.        scientific notZero and
  419.        {
  420.           2 0 rmoveto
  421.           (x) show
  422.           1 0 rmoveto
  423.           (10) show
  424.           1 5 rmoveto
  425.           (exponent9) show
  426.        } if
  427.         scaleFactor 1 scale
  428.     } if
  429.     
  430.     /notZero   (label10) (0) ne   def
  431.     numberOfLabels 10 ge
  432.     {
  433.        firstLabel labelSpacing 9 mul add   labelHeight moveto
  434.         unscaleFactor 1 scale
  435.           notZero 
  436.           {
  437.              (label10) stringwidth pop 
  438.              scientific notZero and {(x10  ) stringwidth pop add} if
  439.              2 div neg  0 rmoveto
  440.           } 
  441.           {-3 0 rmoveto} ifelse
  442.           (label10) show
  443.        scientific notZero and
  444.        {
  445.           2 0 rmoveto
  446.           (x) show
  447.           1 0 rmoveto
  448.           (10) show
  449.           1 5 rmoveto
  450.           (exponent10) show
  451.        } if
  452.         scaleFactor 1 scale
  453.     } if
  454.     
  455.     /notZero   (label11) (0) ne   def
  456.     numberOfLabels 11 ge
  457.     {
  458.        firstLabel labelSpacing 10 mul add   labelHeight moveto
  459.         unscaleFactor 1 scale
  460.           notZero 
  461.           {
  462.              (label11) stringwidth pop 
  463.              scientific notZero and {(x10  ) stringwidth pop add} if
  464.              2 div neg  0 rmoveto
  465.           } 
  466.           {-3 0 rmoveto} ifelse
  467.           (label11) show
  468.        scientific notZero and
  469.        {
  470.           2 0 rmoveto
  471.           (x) show
  472.           1 0 rmoveto
  473.           (10) show
  474.           1 5 rmoveto
  475.           (exponent11) show
  476.        } if
  477.         scaleFactor 1 scale
  478.     } if
  479.     
  480. grestore
  481.  
  482. endps
  483.  
  484.  
  485.  
  486. defineps drawVertLabels(float originX, originY, height, scaleFactor, 
  487.                     unscaleFactor; int labelPosition; float labelGray, 
  488.                     firstLabel, labelSpacing; boolean scientific; int 
  489.                     numberOfLabels; 
  490.                     char *label1, *label2, *label3, *label4, *label5, *label6,
  491.                     *label7, *label8, *label9, *label10, *label11, *exponent1,
  492.                     *exponent2, *exponent3, *exponent4, *exponent5,
  493.                     *exponent6, *exponent7, *exponent8, *exponent9,
  494.                     *exponent10, *exponent11)
  495.  
  496. gsave
  497.  
  498. % scale and translate to match number line, but don't rotate
  499. 1 scaleFactor scale
  500. height originY add  originX neg translate 
  501.  
  502. % set up the font 
  503. /Helvetica findfont
  504. 10 scalefont
  505. setfont
  506. labelGray setgray
  507.  
  508. % set the x coordinate for the labels
  509. labelPosition 1 eq
  510.   {      /labelPlace  -10 def  }
  511.   {   /labelPlace   10 def  }
  512. ifelse
  513.     
  514. % draw the labels
  515.  
  516.     /notZero   (label1) (0) ne   def
  517.      labelPlace firstLabel moveto
  518.      1 unscaleFactor scale
  519.         labelPosition 1 eq 
  520.         {
  521.           (label1) stringwidth pop 
  522.            scientific notZero and {(x10   ) stringwidth pop add} if
  523.           neg
  524.        }
  525.        {0} ifelse
  526.        -3 rmoveto
  527.        (label1) show
  528.        scientific notZero and
  529.        {
  530.           2 0 rmoveto
  531.           (x) show
  532.           1 0 rmoveto
  533.           (10) show
  534.           1 5 rmoveto
  535.           (exponent1) show
  536.        } if
  537.      1 scaleFactor scale
  538.  
  539.     /notZero   (label2) (0) ne   def
  540.     labelPlace firstLabel labelSpacing add  moveto
  541.      1 unscaleFactor scale
  542.         labelPosition 1 eq 
  543.         {
  544.           (label2) stringwidth pop 
  545.            scientific notZero and {(x10   ) stringwidth pop add} if
  546.           neg
  547.        }
  548.        {0} ifelse
  549.        -3 rmoveto
  550.        (label2) show
  551.        scientific notZero and
  552.        {
  553.           2 0 rmoveto
  554.           (x) show
  555.           1 0 rmoveto
  556.           (10) show
  557.           1 5 rmoveto
  558.           (exponent2) show
  559.        } if
  560.      1 scaleFactor scale
  561.  
  562.     /notZero   (label3) (0) ne   def
  563.     labelPlace firstLabel labelSpacing add labelSpacing add moveto
  564.      1 unscaleFactor scale
  565.         labelPosition 1 eq 
  566.         {
  567.           (label3) stringwidth pop 
  568.            scientific notZero and {(x10   ) stringwidth pop add} if
  569.           neg
  570.        }
  571.        {0} ifelse
  572.        -3 rmoveto
  573.        (label3) show
  574.        scientific notZero and
  575.        {
  576.           2 0 rmoveto
  577.           (x) show
  578.           1 0 rmoveto
  579.           (10) show
  580.           1 5 rmoveto
  581.           (exponent3) show
  582.        } if
  583.      1 scaleFactor scale
  584.  
  585.     /notZero   (label4) (0) ne   def
  586.     numberOfLabels 4 ge
  587.     {
  588.        labelPlace firstLabel labelSpacing 3 mul add  moveto
  589.         1 unscaleFactor scale
  590.         labelPosition 1 eq 
  591.         {
  592.           (label4) stringwidth pop 
  593.            scientific notZero and {(x10   ) stringwidth pop add} if
  594.           neg
  595.        }
  596.        {0} ifelse
  597.        -3 rmoveto
  598.           (label4) show
  599.           scientific notZero and
  600.           {
  601.              2 0 rmoveto
  602.              (x) show
  603.              1 0 rmoveto
  604.              (10) show
  605.              1 5 rmoveto
  606.              (exponent4) show
  607.           } if
  608.         1 scaleFactor scale
  609.     } if
  610.     
  611.     /notZero   (label5) (0) ne   def
  612.     numberOfLabels 5 ge
  613.     {
  614.        labelPlace firstLabel labelSpacing 4 mul add  moveto
  615.         1 unscaleFactor scale
  616.         labelPosition 1 eq 
  617.         {
  618.           (label5) stringwidth pop 
  619.            scientific notZero and {(x10   ) stringwidth pop add} if
  620.           neg
  621.        }
  622.        {0} ifelse
  623.        -3 rmoveto
  624.           (label5) show
  625.           scientific notZero and
  626.           {
  627.              2 0 rmoveto
  628.              (x) show
  629.              1 0 rmoveto
  630.              (10) show
  631.              1 5 rmoveto
  632.              (exponent5) show
  633.           } if
  634.         1 scaleFactor scale
  635.     } if
  636.     
  637.     /notZero   (label6) (0) ne   def
  638.     numberOfLabels 6 ge
  639.     {
  640.        labelPlace firstLabel labelSpacing 5 mul add  moveto
  641.         1 unscaleFactor scale
  642.         labelPosition 1 eq 
  643.         {
  644.           (label6) stringwidth pop 
  645.            scientific notZero and {(x10   ) stringwidth pop add} if
  646.           neg
  647.        }
  648.        {0} ifelse
  649.        -3 rmoveto
  650.           (label6) show
  651.           scientific notZero and
  652.           {
  653.              2 0 rmoveto
  654.              (x) show
  655.              1 0 rmoveto
  656.              (10) show
  657.              1 5 rmoveto
  658.              (exponent6) show
  659.           } if
  660.         1 scaleFactor scale
  661.     } if
  662.     
  663.     /notZero   (label7) (0) ne   def
  664.     numberOfLabels 7 ge
  665.     {
  666.        labelPlace firstLabel labelSpacing 6 mul add  moveto
  667.         1 unscaleFactor scale
  668.         labelPosition 1 eq 
  669.         {
  670.           (label7) stringwidth pop 
  671.            scientific notZero and {(x10   ) stringwidth pop add} if
  672.           neg
  673.        }
  674.        {0} ifelse
  675.        -3 rmoveto
  676.           (label7) show
  677.           scientific notZero and
  678.           {
  679.              2 0 rmoveto
  680.              (x) show
  681.              1 0 rmoveto
  682.              (10) show
  683.              1 5 rmoveto
  684.              (exponent7) show
  685.           } if
  686.         1 scaleFactor scale
  687.     } if
  688.     
  689.     /notZero   (label8) (0) ne   def
  690.     numberOfLabels 8 ge
  691.     {
  692.        labelPlace firstLabel labelSpacing 7 mul add  moveto
  693.         1 unscaleFactor scale
  694.         labelPosition 1 eq 
  695.         {
  696.           (label8) stringwidth pop 
  697.            scientific notZero and {(x10   ) stringwidth pop add} if
  698.           neg
  699.        }
  700.        {0} ifelse
  701.        -3 rmoveto
  702.           (label8) show
  703.           scientific notZero and
  704.           {
  705.              2 0 rmoveto
  706.              (x) show
  707.              1 0 rmoveto
  708.              (10) show
  709.              1 5 rmoveto
  710.              (exponent8) show
  711.           } if
  712.         1 scaleFactor scale
  713.     } if
  714.     
  715.     /notZero   (label9) (0) ne   def
  716.     numberOfLabels 9 ge
  717.     {
  718.        labelPlace firstLabel labelSpacing 8 mul add  moveto
  719.         1 unscaleFactor scale
  720.         labelPosition 1 eq 
  721.         {
  722.           (label9) stringwidth pop 
  723.            scientific notZero and {(x10   ) stringwidth pop add} if
  724.           neg
  725.        }
  726.        {0} ifelse
  727.        -3 rmoveto
  728.           (label9) show
  729.           scientific notZero and
  730.           {
  731.              2 0 rmoveto
  732.              (x) show
  733.              1 0 rmoveto
  734.              (10) show
  735.              1 5 rmoveto
  736.              (exponent9) show
  737.           } if
  738.         1 scaleFactor scale
  739.     } if
  740.     
  741.     /notZero   (label10) (0) ne   def
  742.     numberOfLabels 10 ge
  743.     {
  744.        labelPlace firstLabel labelSpacing 9 mul add  moveto
  745.         1 unscaleFactor scale
  746.            labelPosition 1 eq 
  747.            {
  748.              (label10) stringwidth pop 
  749.               scientific notZero and {(x10   ) stringwidth pop add} if
  750.              neg
  751.           }
  752.           {0} ifelse
  753.           -3 rmoveto
  754.           (label10) show
  755.           scientific notZero and
  756.           {
  757.              2 0 rmoveto
  758.              (x) show
  759.              1 0 rmoveto
  760.              (10) show
  761.              1 5 rmoveto
  762.              (exponent10) show
  763.           } if
  764.         1 scaleFactor scale
  765.     } if
  766.     
  767.     /notZero   (label11) (0) ne   def
  768.     numberOfLabels 11 ge
  769.     {
  770.        labelPlace firstLabel labelSpacing 10 mul add  moveto
  771.         1 unscaleFactor scale
  772.            labelPosition 1 eq 
  773.            {
  774.              (label11) stringwidth pop 
  775.               scientific notZero and {(x10   ) stringwidth pop add} if
  776.               notZero not {( ) stringwidth pop add} if             neg
  777.           }
  778.           {0} ifelse
  779.           -3 rmoveto
  780.           (label11) show
  781.           scientific notZero and
  782.           {
  783.              2 0 rmoveto
  784.              (x) show
  785.              1 0 rmoveto
  786.              (10) show
  787.              1 5 rmoveto
  788.              (1) show
  789.           } if
  790.         1 scaleFactor scale
  791.     } if
  792.     
  793. grestore
  794.  
  795. endps
  796.  
  797.  
  798.  
  799.